home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Magnum One
/
Magnum One (Mid-American Digital) (Disc Manufacturing).iso
/
d3
/
dbmail.arc
/
ML0500.PRG
< prev
next >
Wrap
Text File
|
1988-06-18
|
768b
|
41 lines
NOTE ML0500 - CODE DESCRIPTION FILE MAINTENANCE 9/14/84
DO WHILE T
ERASE
?
?
? ' MAILING CODES MAINTENANCE AND PRINT'
?
? ' 1 - ENTER/UPDATE/DELETE CODE DESCRIPTIONS'
? ' 2 - PRINT CODES LIST'
? ' 3 - PURGE DELETED RECORDS'
?
? ' 99 - RETURN TO MAIN MENU'
?
?
INPUT 'SELECT OPTION' TO IP
DO CASE
CASE IP=1
DO ML0510
CASE IP=2
USE ML0500 INDEX ML0500I
SET CONSOLE OFF
REPORT FORM ML0500 FOR .NOT.* TO PRINT
SET CONSOLE ON
USE
CASE IP=99
RELEASE IP
RETURN
CASE IP=3
USE ML0500
PACK
INDEX ON CODE TO ML0500I
USE
ENDCASE
ENDDO
SE ML0500
PACK
INDEX ON CODE TO ML0500I
USE
ENDCASE
ENDDO